home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
LOOK1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-02-06
|
931b
|
42 lines
PROGRAM Look1;
TYPE
String30 = String[30];
IntArray = ARRAY[0..99] OF Integer;
VAR
OK : Boolean;
Register : Word;
StackMarker : Pointer;
Before,After : Word;
MyArray : IntArray;
{$I WRITEHEX.SRC}
{$I VARDUMP.SRC}
FUNCTION Dummy(VAR Values : IntArray;
Fudge : Integer;
Level,Clearance : Char;
Message : String30) : Boolean;
VAR
Grade,Cutoff : Char;
BEGIN
INLINE($90/$90/$90/$90);
INLINE($8B/$C5/$A3/Register); { Save BP into Register }
After := Register;
StackMarker := Ptr(SSeg,Register); { Make a pointer SS : BP }
VarDump(Output,StackMarker^,Trunc(Before-After)); { Dump stack }
END;
BEGIN
INLINE($8B/$C4/$A3/Register); { Save BP into Register }
Before := Register;
OK := Dummy(MyArray,42,'Q','Z','I was born on a pirate ship. ');
END.